home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 15 / 015.d81 / contents map (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  69 lines
  1. 1 remcontents map
  2. 2 ifpeek(51201)<>12orpeek(51202)<>200thenload"routines v4",8,1
  3. 3 open15,8,15
  4. 4 poke650,255
  5. 5 da$=" --------------------------------------"
  6. 6 li=52016:su=51206:sd=51209:cl=51203
  7. 7 forc=1to25:printda$:next
  8. 8 print"[147][154]";:poke53281,0:poke53282,9
  9. 9 poke1020,4:poke1021,24:poke1022,0:poke1023,39
  10. 10 fi$="contents map.t"
  11. 20 dm=500:dimin$(dm)
  12. 30 gosub5000:remopening blurb
  13. 40 gosub6000:remload file
  14. 45 print"[147]";
  15. 50 gosub7000:print"";
  16. 800 print:forc1=0to17:printin$(c1):next:printin$(c1);:lp=0
  17. 810 poke646,1:syscl:print"";
  18. 850 getk$:print"[158]";:ifk$=""then850
  19. 860 ifk$="[145]"ork$=""ork$="[134]"ork$="[138]"thengosub11000:goto850
  20. 865 ifk$="[137]"ork$="[133]"thenforcc=1to18:gosub11000:next:goto850
  21. 870 ifk$=""ork$="[157]"ork$="[139]"ork$="[135]"thengosub10000:goto850
  22. 875 ifk$="[136]"ork$="[140]"thenforcc=1to18:gosub10000:next:goto850
  23. 877 ifk$="p"thengosub2000:print"[147]":goto50
  24. 878 ifk$="x"ork$="[216]"then63000
  25. 880 print"[158]";:gosub7000:print"[146][154]";:gosub7000:goto850
  26. 1000 :
  27. 2000 rem hard(NULL)
  28. 2010 print""da$:printda$:print"[212]urn on your printer and press[160]<return>"
  29. 2011 getk$:ifk$=""then2011
  30. 2012 ifk$<>chr$(13)then2090
  31. 2015 print"  [208]ress any key to stop printing.      "
  32. 2020 print"";
  33. 2030 open4,4,7
  34. 2040 forcp=0tolc:getk$:ifk$<>""then2070
  35. 2050 print#4,spc(20);in$(cp)
  36. 2060 next
  37. 2070 print#4:close4
  38. 2090 return
  39. 5000 print""da$:print" --[204]oading the [204][207][193][196][211][212][193][210] contents map.--"
  40. 5010 print" ----------[208]lease be patient.----------"
  41. 5045 print:print:print"[208]ress 'x' to exit now without reading"
  42. 5050 print:print"this article."
  43. 5060 return
  44. 6000 open8,8,8,fi$
  45. 6030 ll=0:poke781,8:sys65478
  46. 6040 sysli,b$:in$(ll)=mid$(b$,1)
  47. 6044 ifpeek(198)<>0thenifpeek(631)=88then6100
  48. 6045 ifst=0thenll=ll+1:goto6040
  49. 6100 sys65484:close8:close15
  50. 6105 lc=ll
  51. 6110 return
  52. 6150 sys65484:close8:close15
  53. 7000 print" -----[208]ress f1-f7 keys to move text----"
  54. 7005 print" -------[208]ress 'p' to print text.-------"
  55. 7010 print" ----------[208]ress 'x' to exit-----------"
  56. 7015 printda$
  57. 7020 return
  58. 10000 poke646,1:syscl:print"";
  59. 10010 iflp<lc-15thensyssu:lp=lp+1:print""in$(lp+18):return
  60. 10015 poke53280,rnd(1)*15
  61. 10020 return
  62. 11000 poke646,1:syscl:print"";
  63. 11010 if lp>0thensyssd:lp=lp-1:print""in$(lp):return
  64. 11015 poke53280,rnd(1)*15
  65. 11020 return
  66. 63000 poke650,128
  67. 63010 print"[147]load"chr$(34)"hello"chr$(34)",8":print"run"
  68. 63020 poke631,13:poke632,13:poke198,2:end
  69.